Attribute VB_Name = "MainSubs"
Option Explicit

Public Const AppTitle = "Pac Mar Launcher"
Public FontPastel As New clsFont

Public Sub StartProgram()
    FontPastel.Load AppPath & "\gfx\Fonts\Pastel"
    Load FrmLauncher
End Sub

Public Function EndProgram()
    Set FontPastel = Nothing
End Function
